home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / xeno / bbslst1296.lha / BBS-LIST / Install BBS-list < prev    next >
Text File  |  1996-11-25  |  2KB  |  64 lines
  1. ; ************************************************************
  2. ; *
  3. ; * $VER: Install Xenolink bbs-list (25-Nov-(1996)
  4. ; *
  5. ; * This is the installation script for the xenolink BBS-List
  6. ; *
  7. ; * Copyright © 1995-1996 DialTone BBS, All Rights Reserved
  8. ; *
  9. ; ************************************************************
  10.  
  11.  
  12. (set destdir
  13.         (askdir
  14.                 (prompt "Please indicate where you want the BBS-List drawer to be created, Suppose Xenolink: :-)).")
  15.                 (help @askdir-help)
  16.                 (default @default-dest)
  17.         )
  18. )
  19.  
  20. (set destdir (tackon destdir "BBS-List"))
  21.  
  22.  
  23. (if (= destdir "") (set destdir (tackon @default-dest "BBS-List")))
  24.  
  25.  
  26. (if (= (exists destdir) 2)
  27.         (if
  28.                 (askbool
  29.                         (prompt "\n"
  30.                                 "The directory \"" destdir "\" already exists, do you wish to"
  31.                                 " replace the old files?" )
  32.                         (help "The old files placed in this directory will be replaced"
  33.                                         " by the new ones.")
  34.                 )
  35.                 (set dummy 0)
  36.                 (abort "Installation not done.\nAll files are intact.")
  37.         )
  38.         (if
  39.                 (askbool
  40.                         (prompt "\n"
  41.                                 "I'm going to create the directory \""destdir "\" were all "
  42.                                 "files needed for BBS-List will be placed.\n\n"
  43.                                 "You have " (getdiskspace((pathonly destdir))) " bytes free "
  44.                                 "on \"" (pathonly destdir) "\".\n"
  45.                                 "Approximately 300000 bytes will be needed for installation.\n\n"
  46.                                 "Do you wish to continue?")
  47.                         (help "A directory will be created and all vital files will be"
  48.                                         " copied into the created directory.")
  49.                 )
  50.                 (set dummy 0)
  51.                 (abort "Installation not done.\nNo directory created.")
  52.         )
  53. )
  54.  
  55. (if (<> (exists destdir) 2) (makedir destdir (infos)))
  56.  
  57. (set @default-dest destdir)
  58.  
  59.  
  60. (copyfiles (source "") (dest (tackon destdir "")) (all))
  61. (copyfiles (source "Utils") (dest (tackon destdir "Utils")) (all))
  62. (copyfiles (source "Pictures") (dest (tackon destdir "Pictures")) (all))
  63.  
  64.